﻿#light
open AbstractExample
open AppliedExample

let abstractExample() =
    // Create adapter and place a request
    let target = Adapter()
    target.Request()

let appliedExample() =
    // Non-adapted chemical compound
    let stuff = Compound("Unknown")
    stuff.Display()

    // Adapted chemical compounds
    let water = RichCompound("Water")
    water.Display()

    let benzene = RichCompound("Benzene")
    benzene.Display()

    let alcohol = RichCompound("Alcohol")
    alcohol.Display()

abstractExample()
printfn "-------------"
appliedExample()
System.Console.ReadKey(true) |> ignore
